Akan merapihkan data gridview 
Sebelumnya jalan aplikasi jgn lupa xampp di start 
Merpihkan 


A 05,[PARTS] CODING MEMPERCANTIK TAMPILAN DATAGRIDVIEW VB.NET -- MEMBERI WARNA DATAGRIDVIEW VB.NET.mp4 - VLC media player = x 


Media Playback Audio Video Subtitle Tools View Help 
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ADMO 
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Buat sub baru 


Sub aturdgv() 

Pertama kita akan mengubah nama dan menagtur lebar column2 nya 
Name gridview masih bawakan 

Datagridview.columns(0) artinya memulai dari 0 
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Diagnostics session: 9 seconds 


03:11 12:49 


I) alapa Gu Fs 0 || 
hitung nya kodeadmin 0 

Namaadmin 1 

Akan menatur lebar nya 

.widht — 100 


å 05.[PART5] CODING MEMPERCANTIK TAMPILAN DATAGRIDVIEW VB.NET -- MEMBERI WARNA DATAGRIDVIEW VB.NET.mp4 - VLC media player = x 


Media Playback Audio Video Subtitle Tools View Help 
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tura) 
Detatrigviesi.Colums(0).Wiatn = 300 


0408 a 


Lalu copy saja agar cepat 

Ini mengatur lebar column 

Untuk menguji nya pangil di form load 
Pangil nama sub nya 
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II im faite) FS me” | 

Maka akan tampil seperti ini 

å 05.[PART5] CODING MEMPERCANTIK TAMPILAN DATAGRIDVIEW VB.NET -- MEMBERI WARNA DATAGRIDVIEW VB.NET.mp4 - VLC media player = x 
Media Playback Audio Video Subtitle Tools View Help 
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TAMBAH | | EDIT HAPUS 


04:38 12:49 
SW EE : 


Kita akan membuat nama header menjadi huruf besar 
Datadridview.column(0) selalu mulai dari 0 .headerText = “KODE ADMIN” 
Lalu yg lain copy saja 
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Media Playback Audio Video Subtitle Tools View Help 


Fomivb 
va Modulel.vb 


06:17 
TE) lala Cilik Sisix 


Lihat di start maka sudah jadi 
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TAMBAH EDIT Diagnostics session: 6 seconds 


4 Events 
Oo 
4 Process Memory (MB) 


KODE ADMIN 
NAMA ADMIN 

26 Gg 
KATA SANDI | 


4 CPU (% of all processors) 
10 


Events 


Build + IntelliSense 


06:26 12:49 


Kita akan buat dia rata tengah 
Datagridview1.columnheadercelstyyle.aligment= pilih yg middlecenter dia nrata kiri 
kanan atas bawah 
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Media Playback Audio Video Subtitle Tools View Help 


tfrom: Debug 


07:29 
TE) ec mt Cilik Sisix 


Coba lihat perubahannya 
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Diagnostics session: 8 seconds 
NAMA ADMIN 5 | 


KODE ADMIN 


KATA SANDI 4 Events 


LEVEL D 
4 Process Memory (MB) 


KODE ADMIN 


ADMINISTRATOR 


> 


Memory Usage 
S T. 


CPU Usage 


Build + IntelliSense 


IN eam cal tt) [S/H — 
Kemudian akan mengatur jeni huruf size dan akan beri tebal 
Datagridviewl.coloumn sama .font = new Font(“Arial”, 10, fontstyle.bold) in 
menagtur 10 nya ukuran 
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Media Playback Audio Video Subtitle Tools View Help 


08:45 

TE) lala Cait Sisix 
a 05.[PART5] CODING MEMPERCANTIK TAMPILAN DATAGRIDVIEW VB.NET -- MEMBERI WARNA DATAGRIDVIEW VB.NET.mp4 - VLC media player oor 
Media Playback Audio Video Subtitle Tools 


View Help 


æ] penjualan #3 MASTER ADMIN A & 


= 
aF MASTER ADMIN Diagnostics session: 1 seconds 


4 Events 
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4 Process Memory (MB) 


TAMBAH EDIT HAPUS 


KODE ADMIN 
NAMA ADMIN 
KATA SANDI 6 of all processors) 


LEVEL 


KODE NAMA 
ADMIN ADMIN 


A Si Summary £ 


Events 


Entire Solution 0 Warnings 


08:49 12:49 
I rela lw Fs MP || 


Kelihatan menjadi rapi 
Kemudian mengatur jenis font yg ada di cels 
Datagridview1.defaultCellsStyle karnea menagtur celsnya 


font = new Font() 
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Maka sudh terganti 
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Diagnostics session: 5 seconds 
TAMBAH EDIT HAPUS | 
4 Events 
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KODE ADMIN 4 Process Memory (MB) 
NAMA ADMIN 
KATA SANDI 


LEVEL 4 CPU (% of all processors) 


w 


NAMA KATA 
ADMIN SANDI 


Summary Events 


Events 


Build + IntelliSense 


09:46 12:49 


II mp lw SISIA m i 
Sekarang memberikan warna dia sealng seling 

Menajdi putih biru agar enak dibaca 

Datagridview.alternati .backcolor—color. Lalu pilih warnanya 
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App 
Forml.vb 


Module 


10:45 
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Lalu di start 
Maka tampilan seperti ini 
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Tools View Help 
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Diagnostics session: 3 seconds 


4 Events 
m 
4 Process Memory (MB) 


bttambah.Text 
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Events 


Memory Usage 
Take S 


CPU Usage 


Build + IntelliSense 
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Kalau dia kurang lebar maka dilebarkan 
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penjualan" (1 project 
TAMBAH EDIT HAPUS © penjualan 
Project 
Reference: 
WI App.conf 
E Formivb 
V8 Module 


MASTER ADMIN System. Windows Forms Form 
OF - 
Appi settings) 
aBinding: 
Name; MASTER ADMIN 
eDescription 
sibleName 
eRole 
op 
Aut aleMode 
tollMargin 


crollMinSize 


Show output from: Debug Auto nablePreventFocusChange 


penjualan.exe): Loaded i s ics1v4.0 4.0.0.0 b77a5c561934 c none 
d with 


11:06 12:49 
Ih mom») ith 


Ini kurang kesamping 
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Diagnostics session: 3 seconds 
NAMA ADMIN | 
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Events 


Memory Usage 


J Take Snapsho 
CPU Usage 
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Atur disni 
Coba buat 130 atau lainnya 
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MI mpg Kal zsz a 
Cukup simple memperindah dan mempercantik lebih enak untuk dilihat 
Nanti melanjutkan proses edit data 


Form 
Imports System.Data.Odbc 
Public Class form master 
Private Sub Buttonl Click(sender As Object, e As EventArgs) Handles 
Buttonl.Click 
bukaDB( ) 


End Sub 


Sub TIDAKSIAPDIISI () 


txtkodeadmin.Enabled = False 
txtnamaadmin.Enabled = False 
txtkatasandi.Enabled = False 


ComboBox1.Enabled = False 


End Sub 
Sub SIAPISI() 


txtkodeadmin. Enabled = True 
txtnamaadmin.Enabled = True 
txtkatasandi.Enabled = True 


ComboBox1.Enabled = True 
End Sub 


Sub KOSONGKANTEXT () 
txtkodeadmin. Text is 
txtnamaadmin. Text uig 
txtkatasandi.Text 
ComboBox1.Text = "" 

End Sub 


Sub KONDISIAWAL () 
btntambah.Text = "TAMBAH" 
btnedit.Text = "EDIT" 
btnhapus.Text = "HAPUS" 

End Sub 

Sub ISICOMBOBOXL1 () 
ComboBox1. Items .Add ("ADMIN") 
ComboBox1. Items .Add( "USER" ) 

End Sub 


Sub TAMPILGDV () 
bukaDB() 
da = New OdbcDataAdapter( "SELECT kodeadmin, namaadmin, katasandi, level from 
tbl admin", conn) 
ds = New DataSet 
da.Fill(ds, "tbl admin") 
DataGridViewl.DataSource = ds.Tables("tbl admin") 
End Sub 


Sub URUTANOTOMATIS() 
bukaDB() 
Dim urutankode As String 
Dim hitung As String 
cmd = New OdbcCommand("SELECT * FROM tbl admin where kodeadmin in(select 
max(kodeadmin) from tbl admin)", conn) 
rd = cmd.ExecuteReader 
rd.Read() 
If Not rd.HasRows Then 
urutankode = "AGM" + "001" 
Else 
hitung = Microsoft.VisualBasic.Right(rd.GetString(0), 3) + 1 
urutankode = "ADM" + Microsoft.VisualBasic.Right("00" & hitung, 3) 
End If 
txtkodeadmin.Text = urutankode 
txtkodeadmin.Enabled = False 
End Sub 
Sub ATURGDV() 


DataGridViewl.Columns(0).Width = 130 
DataGridViewl.Columns(1).Width = 130 
DataGridViewl.Columns(2).Width = 130 


DataGridViewl.Columns(3).Width = 100 

DataGridViewl.Columns (0).HeaderText = "KODE ADMIN" 

DataGridViewl.Columns(1).HeaderText = "NAMA ADMIN" 

DataGridViewl.Columns(2).HeaderText = "KATA SANDI" 

DataGridViewl.Columns(3).HeaderText = "LEVEL" 

DataGridViewl.ColumnHeadersDefaultCellStyle.Alignment = 
DataGridViewContentALlignment .MiddleCenter 

DataGridViewl.ColumnHeadersDefaultCellStyle.Font = New Font( "Quicksand", 
10, FontStyle.Bold) 

DataGridView1.DefaultCellStyle.Font = New Font("Quicksand", 9) 

DataGridViewl.AlternatingRowsDefaultCellStyle.BackColor = 
Color.GreenYellow 


End Sub 


Private Sub btntambah Click(sender As Object, e As EventArgs) Handles 
btntambah. Click 


Try 

If btntambah.Text = "TAMBAH" Then 
btntambah.Text = "SIMPAN" 
btnhapus.Text = "BATAL" 
SIAPISI() 
URUTANOTOMATIS( ) 
txtnamaadmin.Focus () 

ElseIf txtkodeadmin.Text = "" Then 
MsgBox("Kode tidak boleh kosong", vbExclamation) 
txtkodeadmin. Focus () 

ElseIf txtnamaadmin.Text = "" Then 
MsgBox("Kode tidak boleh kosong", vbExclamation) 
txtnamaadmin.Focus () 

ElseIf txtkatasandi.Text = "" Then 
MsgBox ("Kata Sandi tidak boleh kosong", vbExclamation) 
txtkatasandi.Focus () 

ElseIf ComboBox1.Text = "" Then 
MsgBox("Level tidak boleh kosong", vbExclamation) 
ComboBox1.Focus() 

Else 
bukaDB() 
Dim simpan As String 
simpan = "INSERT INTO tbl admin values('" & txtkodeadmin.Text & 

"I" & txtnamaadmin.Text & "','" & txtkatasandi.Text & "','" & ComboBoxl.Text & 
A 

cmd = New OdbcCommand(simpan, conn) 
cmd . ExecuteNonQuery() 
MsgBox ("Data admin berhasil ditambah") 
KOSONGKANTEXT () 
TIDAKSIAPDIISI() 
KONDISIAWAL ( ) 
TAMPILGDV () 


End If 
Catch ex As Exception 

MsgBox ("Data admin gagal ditambah") 
End Try 


End Sub 


Private Sub form master Load(sender As Object, e As EventArgs) Handles 
MyBase.Load 
TIDAKSIAPDIISI () 
ISICOMBOBOXL ( ) 
TAMPILGDV () 
ATURGDV () 
End Sub 


Private Sub btnhapus Click(sender As Object, e As EventArgs) Handles 
btnhapus.Click 
KOSONGKANTEXT ( ) 
TIDAKSIAPDIISI () 
KONDISIAWAL () 


End Sub 


Private Sub DataGridViewl CellContentClick(sender As Object, e As 
DataGridViewCellEventArgs) Handles DataGridViewl.CellContentClick 


End Sub 
End Class 


